home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / stars.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.6 KB  |  142 lines
  1. 0  REM SHOOTING STARS BY TBX
  2. 10  PRINT "INSTRUCTIONS (1=YES, 0=NO)";
  3. 20  INPUT Z
  4. 30  IF Z=1 THEN GOSUB 900
  5. 100  A=-1: 'START LOOP
  6. 101  B=-1
  7. 102  C=-1
  8. 103  D=-1
  9. 104  E=1
  10. 105  F=-1
  11. 106  G=-1
  12. 107  H=-1
  13. 108  I=-1
  14. 109  J=0
  15. 148  PRINT
  16. 149  IF INT(J/3)*3=J THEN PRINT ""
  17. 150  IF A=1 THEN PRINT "* ";
  18. 151  IF A=-1 THEN PRINT "- ";
  19. 155  IF B=1 THEN PRINT "* ";
  20. 156  IF B=-1 THEN PRINT "- ";
  21. 160  IF C=1 THEN PRINT "* ";J
  22. 161  IF C=-1 THEN PRINT "- ";J
  23. 165  IF D=1 THEN PRINT "* ";
  24. 166  IF D=-1 THEN PRINT "- ";
  25. 170  IF E=1 THEN PRINT "* ";
  26. 171  IF E=-1 THEN PRINT "- ";
  27. 175  IF F=1 THEN PRINT "* "
  28. 176  IF F=-1 THEN PRINT "- "
  29. 180  IF G=1 THEN PRINT "* ";
  30. 181  IF G=-1 THEN PRINT "- ";
  31. 185  IF H=1 THEN PRINT "* ";
  32. 186  IF H=-1 THEN PRINT "- ";
  33. 190  IF I=1 THEN PRINT "*     ";
  34. 191  IF I=-1 THEN PRINT "-     ";
  35. 250  IF E=1 THEN 390
  36. 260  IF A+B+C+D+F+G+H+I=8 THEN 809
  37. 270  IF A+B+C+D+F+G+H+I=-8 THEN 820
  38. 390  PRINT "SHOOT";
  39. 391  INPUT Y
  40. 395  ON Y GOTO 509,519,529,539,549,559,569,579,589
  41. 499  PRINT "YOU GAVE UP ON ";J;" TRYS !!!!"
  42. 500  GOTO 830
  43. 509  IF A=-1 THEN 800
  44. 510  A=-A
  45. 511  B=-B
  46. 512  D=-D
  47. 513  E=-E
  48. 516  GOTO 597
  49. 519  IF B=-1 THEN 800
  50. 520  A=-A
  51. 521  B=-B
  52. 522  C=-C
  53. 526  GOTO 597
  54. 529  IF C=-1 THEN 800
  55. 530  B=-B
  56. 531  C=-C
  57. 532  E=-E
  58. 533  F=-F
  59. 536  GOTO 597
  60. 539  IF D=-1 THEN 800
  61. 540  A=-A:D=-D:G=-G
  62. 546  GOTO 597
  63. 549  IF E=-1 THEN 800
  64. 550  B=-B:D=-D:E=-E:F=-F:H=-H
  65. 556  GOTO 597
  66. 559  IF F=-1 THEN 800
  67. 560  C=-C:F=-F:I=-I
  68. 566  GOTO 597
  69. 569  IF G=-1 THEN 800
  70. 570  D=-D:E=-E:G=-G:H=-H
  71. 576  GOTO 597
  72. 579  IF H=-1 THEN 800
  73. 580  G=-G:H=-H:I=-I
  74. 586  GOTO 597
  75. 589  IF I=-1 THEN 800
  76. 590  E=-E:F=-F:H=-H:I=-I
  77. 597  J=J+1
  78. 598  GOTO 148
  79. 800  PRINT "HEY ! ! YOU CAN ONLY SHOOT"
  80. 801  PRINT "STARS, NOT BLACK HOLES."
  81. 802  GOTO 390
  82. 809  PRINT
  83. 810  PRINT "YOU WIN WITH ";J;" SHOOTS"
  84. 815  GOTO 830
  85. 820  PRINT "YOU LOST WITH ";J;" TRYS."
  86. 830  PRINT
  87. 831  PRINT "TRY AGAIN (1=YES, 0=NO)";
  88. 832  INPUT X
  89. 833  IF X=1 THEN 100
  90. 834  IF X=0 THEN 890
  91. 835  PRINT "FOLLOW INSTRUCTIONS "
  92. 836  GOTO 831
  93. 890  PRINT "HOPE YOU HAD FUN"
  94. 895  REM
  95. 899  REM INSTRUCTION SUBROUTINE
  96. 900  PRINT"";
  97. 901  PRINT "* * *  THERE ARE STARS"
  98. 902  PRINT "- - -  AND BLACK HOLES"
  99. 903  PRINT "* * *  IN THE UNIVERSE"
  100. 904  PRINT
  101. 905  PRINT "1 2 3  YOU SHOOT A STAR *"
  102. 906  PRINT "4 5 6  NOT A BLACK HOLE -"
  103. 907  PRINT "7 8 9  BY TYPING ITS NUMBER"
  104. 908  PRINT
  105. 910  PRINT "EACH STAR IS IN A GALAXY."
  106. 911  PRINT "WHEN YOU SHOOT A STAR, EVERY-"
  107. 912  PRINT "THING IN ITS GALAXY CHANGES."
  108. 913  PRINT "ALL STARS BECOME BLACK HOLES,"
  109. 914  PRINT "ALL BLACK HOLES BECOME STARS."
  110. 915  PRINT "TYPE '2' TO GO ON."
  111. 916  INPUT Z
  112. 920  PRINT "GALAXY MAPS:"
  113. 921  PRINT
  114. 923  PRINT "1 * -   * 2 *   - * 3"
  115. 924  PRINT "* * -   - - -   - * *"
  116. 925  PRINT "- - -   - - -   - - -"
  117. 926  PRINT
  118. 927  PRINT "* - -   - * -   - - *"
  119. 928  PRINT "4 - -   * 5 *   - - 6"
  120. 929  PRINT "* - -   - * -   - - *"
  121. 930  PRINT
  122. 931  PRINT "- - -   - - -   - - -"
  123. 932  PRINT "* * -   - - -   - * *"
  124. 933  PRINT "7 * -   * 8 *   - * 9"
  125. 934  PRINT
  126. 935  PRINT "TYPE '3' TO GO ON";
  127. 936  INPUT Z
  128. 940  PRINT "PATTERNS TO LOOK FOR:"
  129. 941  PRINT
  130. 942  PRINT "START    WIN     LOSE"
  131. 943  PRINT
  132. 945  PRINT "- - -   * * *   - - -"
  133. 946  PRINT "- * -   * - *   - - -"
  134. 947  PRINT "- - -   * * *   - - -"
  135. 948  PRINT
  136. 949  PRINT "TYPE '0' TO END GAME"
  137. 950  PRINT
  138. 951  PRINT "TYPE '4' TO GO ON";
  139. 952  INPUT Z
  140. 999  RETURN
  141. 1000  END
  142.